From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 May 1993 12:05:52 +0000 (+0000)
Subject: (vc-version-diff): Don't move point in current buffer.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96291
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=36bed8bc8c065de1d27b73cb03222db46da6b43f;p=emacs.git

(vc-version-diff): Don't move point in current buffer.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 6073ebe86df..2b7df01e99a 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -775,15 +775,9 @@ files in or below it."
 	(goto-char (point-min))
 	(set-buffer-modified-p nil)
 	)
-    (progn
-      (vc-backend-diff file rel1 rel2)
-      (goto-char (point-min))
-      (if (equal (point-min) (point-max))
-	  (message "No changes to %s between %s and %s." file rel1 rel2)
-	(pop-to-buffer "*vc*")
-	(goto-char (point-min))
-	)
-      )
+    (if (zerop (vc-backend-diff file rel1 rel2))
+	(message "No changes to %s between %s and %s." file rel1 rel2)
+      (pop-to-buffer "*vc*")
     )
   )